home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_2 / ixg06d / rexx / ui.rexx
OS/2 REXX Batch file  |  1982-07-25  |  865b  |  39 lines
  1. /* UserInfo 1.25 (c) by Kasper B. Graversen  */
  2. /* arexx script for iX-Guide by I. Sturlic   */
  3. /* $VER: 1.0                                 */ 
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if ~show('p','IXGUIDE') then
  8.  do
  9.   say 'iX-Guide is not running ...'
  10.   exit
  11.  end
  12.  
  13. if ~show('l',"rexxsupport.library") then
  14.  addlib("rexxsupport.library",0,-30,0)
  15.  
  16. parse arg uipath uistrfile destfile .
  17.  
  18. address command
  19. uipath'ui125' 'READ' uipath uistrfile 'T:uid1.tmp' 'MAIL'
  20.  
  21. if (~open('src','T:uid1.tmp','R')) | (~open('dst',destfile,'W')) then do
  22.  say 'Cannot open temporary files'
  23.  exit
  24. end
  25.  
  26. do until eof('src')
  27.  ln=readln('src')
  28.  newln=ln
  29.  if abbrev(ln,'>') then do
  30.   newln = insert('@{li}@{font f2}@{fg shine}@{b}',newln)
  31.   newln = insert('@{fg text}@{ub}@{font deff}',newln,length(newln))
  32.  end
  33.   call writeln('dst',newln)
  34. end
  35.  
  36. call close('src'); call close('dst')
  37. call delete('T:uid1.tmp')
  38. exit
  39.